home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspdbd.arc / DSPDBD2.RPG < prev    next >
Encoding:
Text File  |  1991-12-04  |  3.0 KB  |  70 lines
  1.       /TITLE  Display data base file directory.  CMD(DSPDBD)
  2.      FDSPDBDP O   E             69     PRINTER
  3.      FQAFDMBR IF  E                    DISK
  4.      E                    FL         21 01               QUALIFIED NAME
  5.       /COPY QRPGSRC,PSDS
  6.      C                     Z-ADD0         X       70
  7.      C                     MOVE '1'       ON      1
  8.      C                     MOVE '0'       OFF     1
  9.      C                     MOVE ON        *IN69
  10.       /SPACE
  11.      C                     READ QAFDMBR                  LR
  12.      C           *INLR     DOWEQOFF
  13.      C                     MOVEA*BLANKS   FL
  14.      C                     MOVEAMBFILE    FL,1
  15.      C                     Z-ADD1         X
  16.      C           *BLANK    LOKUPFL,X                     51 FIRST BLANK
  17.      C                     MOVE '.'       FL,X
  18.      C                     ADD  1         X
  19.      C                     MOVEAMBLIB     FL,X             QUALIFY LIBRARY
  20.      C                     MOVEAFL        FILIB
  21.       /SPACE
  22.      C           *IN69     IFEQ ON
  23.      C           MBLIB     ORNE PRVLIB
  24.      C                     WRITEHEADER
  25.      C                     MOVE OFF       *IN69
  26.      C                     END
  27.       /SPACE
  28.      C           *LIKE     DEFN MBLIB     PRVLIB
  29.      C                     MOVE MBLIB     PRVLIB
  30.       /SPACE
  31.      C                     MOVE *BLANKS   FILE
  32.      C                     MOVELMBFILE    FILE
  33.      C                     MOVE MBFCDT    CRTDAT
  34.      C                     MOVE MBFCTM    CRTTIM
  35.      C                     MOVE MBCHGD    CHGDAT
  36.      C                     MOVE MBCHGT    CHGTIM
  37.      C                     MOVE MBSAVD    SAVDAT
  38.      C                     MOVE MBSAVT    SAVTIM
  39.      C                     MOVELMBTXT     TEXT
  40.      C                     WRITEDETAIL1
  41.      C                     SUB  1         MBNOMB
  42.      C           *LIKE     DEFN MBNOMB    MBRS
  43.      C                     Z-ADDMBNOMB    MBRS
  44.       /SPACE
  45.      C                     DO   MBRS
  46.      C                     MOVE *BLANKS   FILE
  47.      C                     MOVE MBNAME    FILE
  48.      C                     MOVE MBCDAT    CRTDAT
  49.      C                     MOVE MBCTIM    CRTTIM
  50.      C                     MOVE MBCHGD    CHGDAT
  51.      C                     MOVE MBCHGT    CHGTIM
  52.      C                     MOVE MBSAVD    SAVDAT
  53.      C                     MOVE MBSAVT    SAVTIM
  54.      C                     MOVELMBMTXT    TEXT
  55.      C           *IN69     IFEQ ON
  56.      C           MBLIB     ORNE PRVLIB
  57.      C                     WRITEHEADER
  58.      C                     MOVE OFF       *IN69
  59.      C                     END
  60.      C                     MOVE MBLIB     PRVLIB
  61.      C                     WRITEDETAIL1
  62.      C                     READ QAFDMBR                  LR
  63.      C                     END
  64.       /SPACE
  65.      C                     READ QAFDMBR                  LR
  66.      C                     END
  67.       /SPACE
  68.      C           ENDPGM    TAG
  69.      C                     MOVE ON        *INLR
  70.